home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ OEM Info Text.xpl < prev    next >
Text File  |  2001-01-21  |  2KB  |  69 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="5"
  4. "UIPATH 1"="Appearance\OEM Branding"
  5. "NAME"="OEM Support Information"
  6. "VERSION"="1.34"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Line 1"
  9. "TEXT 2"="Line 2"
  10. "TEXT 3"="Line 3"
  11. "TEXT 4"="Line 4"
  12. "TEXT 5"="Line 5"
  13. "DESCRIPTION 1"="To see these values, select "Start" | "Settings" | "Control Panel", "System" and click the "Support Information" button."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"=" "
  19. "COMMENT 3"="Thanks to CptSiskoX [CptSiskoX@FlashMail.Com] for the Windows 9x part!"
  20. "COMMENT 4"="Thanks to Eniac [star867@earthlink.net] for the "no <Model> text set" bug notice."
  21.  
  22.  
  23. sI="OEMINFO.INI"
  24. sI=GetWinSysDir & sI 
  25.  
  26. sT="GENERAL"
  27. sT2="Support Information"
  28.  
  29.  
  30.  
  31. Sub Plugin_Initialize 
  32.  for i=1 to 5 
  33.   s=IniReadValue(si,st2,"Line"& i)
  34.   SetUIElement i,s
  35.  next
  36. End Sub
  37.  
  38.  
  39. Sub Plugin_CheckData(ElementIndex)
  40. End Sub
  41.  
  42.  
  43.  
  44. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  45.  for i=1 to 5 
  46.   s=GetUIElement(i) 
  47.   Call IniWriteValue(si,st2,"Line" & i,s)
  48.  next
  49.  
  50.  Call CheckFile
  51. End Sub
  52.  
  53.  
  54. Sub Plugin_Terminate 
  55. End Sub
  56.  
  57.  
  58.  
  59. Sub CheckFile
  60.  bDispWarning1=false
  61.  
  62.  s=IniReadValue(si,st,"Manufacturer")
  63.  If len(s)=0 then bDispWarning1=true
  64.  
  65.  If bDispWarning1=true then
  66.     Call MsgWarning("No <OEM Name> text set, this value is required to have any OEM items displayed. Please set it through the 'General Information' plug-in or your changes will not be visible.")
  67.  end if
  68. End Sub
  69.